home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 96 / 64er_Magazin_Sonderheft_96_19xx_Markt__Technik_de_Side_A.d64 / id-maker 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  35 lines
  1. 1 poke788,52:ifpeek(57088)<>32orpeek(57089)<>215orpeek(57090)<>189then3
  2. 2 sys64738
  3. 3 x=peek(186):ifx<8orx>13thenx=8
  4. 4 gosub12:gosub16:gosub11:gosub12:gosub14
  5. 5 n=n+1:ifn=2thenprint""tab(250)"[158]zweite"
  6. 6 ifn=3thenclose2:close1:goto29
  7. 7 gosub11:open1,x,15,"i":open2,x,2,"#":print#1,"u1:"2;0;20;5:gosub25
  8. 8 print#1,"b-p:"2;10 :ifn<0thenn=0
  9. 9 get#2,a$:a=asc(a$+chr$(0)):ifa=2thenclose2:close1:n=n-1:gosub12:goto27
  10. 10 print#1,"n:[195]opy,lj":gosub25:close2:close1:goto5
  11. 11 wait203,64,64:return
  12. 12 poke53280,0:poke53281,0:print"[147]"tab(16)chr$(14)"[201][196]-[205][193][203][197][210]"tab(98)"von"
  13. 13 printtab(9)"[200]ans-[202]uergen [218]iethmann":return
  14. 14 print"[194]itte die erste  von zwei [196]isketten in  das [204]aufwerk "x;"[146]legen"
  15. 15 print"[145]"tab(62)"und eine [212]aste    druecken":return
  16. 16 printtab(40)"[205]it [200]ilfe dieses [208]rogramms bringen [211]ie  die [196]isketten-[201][196] [204][202]"
  17. 17 print"[145]"tab(60)"auf die"tab(80)"[211]tartdisketten."
  18. 18 print"[211]ie koennen aber die [196]isk ebenso   von  [200]and formatieren. [193]chten [211]ie"
  19. 19 print"nur darauf, dass die [196]isketten-[201][196] immer [204][202] lautet."
  20. 20 print"[215]eiterhin benoetigen [211]ie zwei [196]isketten,da der [199][197][207][211][203][207][206][214][197][210][212][197][210] [214]2.0"
  21. 21 print"ein ganzes [211]ystem"tab(40)"([211]ystem/[211]icherungssystem) erstellt."
  22. 22 print"[218]usaetzlich benoetigen [211]ie ein"tab(40)"[203]opierprogramm, welches die "
  23. 23 print"[196]iskettentracks nicht formatiert. "tab(87)"[194][201][212][212][197] [197][201][206][197] [212][193][211][212][197] [196][210][213][197][195][203][197]!"
  24. 24 return
  25. 25 input#1,en,em$,et,es:ifen=0oren=21thenreturn
  26. 26 gosub12:print"[196]isk [197][210][210][207][210]!";en;em$;et;es:close2:close1:n=n-1:goto28
  27. 27 print"[214][207][210][211][201][195][200][212]![146]"tab(80)"[196]ie [211]ystemdiskette darf nicht formatiertwerden"
  28. 28 printtab(80)"[194][201][212][212][197] [197][201][206][197] [212][193][211][212][197] [196][210][213][197][195][203][197][206]!":gosub11:gosub12:gosub14:goto5
  29. 29 gosub12:print"[198]ormatieren  beendet!"
  30. 30 print"[194]itte kopieren [211]ie nun die"tab(40)"[199][197][207][211]-[211]ystemdiskette"
  31. 31 print"[145][145]"tab(60)"mit einem"tab(40)"[203]opierprogramm, welches die "
  32. 32 print"[196]iskettentracks nicht neu formatiert,"tab(40)"auf beiden [196]isketten."
  33. 33 print"[215]enn [211]ie mit dem [203]opiervorgang fertig   sind, laden und starten [211]ie"
  34. 34 print"[145]"tab(68)"den"tab(80)"[199][197][207][211][203][207][206][214][197][210][212][197][210] [214]2.0.":new
  35.